  10 :RETURN ;CLEAR ;NT=1;BC=64;FC=4;FOR Z=1TO 178;@(Z)=0;NEXT Z;FOR Z=1TO 52;@(Z)=Z;NEXT Z;D=52;Q=149
  30 A=60;FOR T=172TO 178;@(T)=A;A=A+12;NEXT T;X=-77;FOR Z=0TO 6;@(53+Z)=Z;NEXT Z;FOR Z=144TO 147;@(Z)=Z-144;NEXT Z;U=21;GOTO 1000
 100 A=RND (D);C=@(A);D=D-1;C=C÷4;S=RM;IF C=0C=13
 110 FOR B=ATO D;@(B)=@(B+1);NEXT B;RETURN 
 200 IF C=0PRINT "   ",;RETURN 
 205 IF C=13PRINT " K",
 210 IF C=1PRINT " A",
 220 IF C>1IF C<11PRINT #2,C,
 230 IF C=11PRINT " J",
 240 IF C=12PRINT " Q",
 250 IF S=0PRINT "S",
 260 IF S=1PRINT "C",
 270 IF S=2PRINT "D",
 280 IF S=3PRINT "H",
 290 RETURN 
 300 FOR T=172TO 178;E=@(T)
 310 FOR P=144TO 147;IF @(E)=@(P)+10@(P)=@(E);@(E)=0;F=1;G=E÷12;@(T)=@(T)-1;IF RM=0@(T)=@(T)+1;GOSUB 400
 320 NEXT P;IF R=1RETURN 
 330 IF F=1RETURN 
 350 NEXT T;RETURN 
 400 IF (G>11)+(@(48+G)=0)RETURN 
 410 U=U-1;GOSUB 100;@(48+G)=@(48+G)-1;@(E)=C×10+S;RETURN 
 500 FOR E=60TO 132STEP 12;IF @(E)=0GOTO 550
 510 FOR T=172TO 178;H=@(T)
 525 I=H÷12;IF RM=0IF @(H)=0IF @(E)>125GOTO 700
 530 J=@(H)÷10;V=RM;K=@(E)÷10+1;W=RM;IF J=KIF V÷2#W÷2GOTO 600
 540 NEXT T;IF R=1RETURN 
 550 NEXT E;RETURN 
 600 F=1;IF R=1@(H+1)=@(E);@(E)=0;@(T)=@(T)+1;RETURN 
 605 FOR N=ETO E+11;IF @(N)=0G=E÷12;GOTO 400
 610 H=H+1;@(H)=@(N);@(N)=0;@(E÷12+167)=E;@(T)=@(T)+1;NEXT N
 700 G=E÷12;IF (R=1)+(@(48+G)>0)H=H-1;@(T)=@(T)-1;GOTO 600
 720 GOTO 530
1000 FOR Z=60TO 132STEP 12;GOSUB 100;@(Z)=C×10+S;NEXT Z;F=1;O=0;GOTO 1060
1010 GOSUB 300;CY=32;IF F=0GOTO 1100
1020 CY=40;X=-68;FOR Z=144TO 147;C=@(Z)÷10;S=RM;CX=X;IF C<1GOTO 1050
1040 GOSUB 200
1050 X=X+21;NEXT Z
1055 IF O=1O=0;GOTO 1095
1060 CY=32;L=0;X=-77;FOR M=0TO 10;FOR Z=60TO 132STEP 12;C=@(Z+M)÷10;S=RM;CX=X;GOSUB 200;IF C=0L=L+1;GOTO 1075
1070 L=0
1075 IF L>7GOTO 1095
1080 X=X+21;IF X>60X=-77;CY=CY-7
1090 NEXT Z;NEXT M
1095 IF F=1F=0;GOTO 1010
1100 GOSUB 500;IF F=1GOTO 1060
1120 IF Q=149GOTO 1155
1140 R=1;E=Q-1;GOSUB 310;R=0;IF F=1Q=Q-1;GOSUB 2000;O=1;GOTO 1020
1150 R=1;GOSUB 510;R=0;IF F=1F=0;Q=Q-1;GOSUB 2000;GOTO 1060
1155 IF D-U=0STOP
1160 GOSUB 100;@(Q)=C×10+S;Q=Q+1;GOSUB 2000;GOTO 1140
2000 C=@(Q-1)÷10;S=RM;CX=35;CY=40;GOSUB 200;RETURN 
RUN 
